1 DV=PEEK(186):IFDV<8THENDV=8
4 POKE180,0:IFPEEK(56)=34THENPOKE180,1
5 POKE198,0:GOTO10
6 POKE198,1:POKE631,ASC("N")
10 PRINT"":POKE53280,0:POKE53281,0
12 IFPEEK(56)=56THEN20
14 IFPEEK(56)<>55THENGOSUB2000
15 IFPEEK(56)<>55THENPOKE56,55:CLR:GOSUB2001
20 POKE53265,PEEK(53265)AND239:POKE53272,30
1000 PRINT"[147]"
1001 A$="  [129]\@@@[129]\@@@[129]\@@@  [129]\@@@[129]\@@@  [129]\@@@[129]\@@@[129]\@@@
1002 B$[178]"  FOR@@FOR@[@@FOR@[@@FOR^@  FOR^^@FOR[@@FOR^@  FOR@@FOR@[@@FOR@[@@FOR^@
1003 C$="  [129]@@@@[129]@@@ [129]@@@@   [129]@@ [129]@@[129]@@  [129]@@@@[129]@@@ [129]@@@@
1004 D$[178]"  FOR^@^@FOR@@FOR[ @@FOR@@   FOR@@ FOR@@FOR@@  FOR^@^@FOR@@FOR[ @@FOR@@
1005 E$="  [129]\@@@[129]@@@@[129]@@[129]@@   [129]@@ [129]@@@@  [129]\@@@[129]@@@@[129]@@[129]@@
1006 F$[178]"  FOR^@@[^@@[^[^[   ^[ ^@@[  ^@@[^@@[^[^["
1007 DV[178][194](186):[139]DV[179]8[167]DV[178]8
1008 [137]50000
2000 [158]57812"C2C.MUS",DV,0:[151]780,0:[151]781,0:[151]782,87:[158]65493:[142]
2001 DV[178][194](186):[139]DV[179]8[167]DV[178]8
2002 [158]57812"C2C.FNT",DV,0:[151]780,0:[151]781,0:[151]782,56:[158]65493:[142]
50000 [153]:[153]: [153]A$:[153]B$:[153]C$:[153]D$:[153]E$:[153]F$
50001 [153]:[153]"SYS   (null)HE (null)(null)ATN(null)(null)LEN(null)(null)(null)RIGHT$(null)VAL(null)(null)ATN(null) (null)ATNRIGHT$(null)(null)(null)ATNSTR$ CHR$AME
50002 PRINT:PRINT"[154]          FOR THE [195][207][205][205][207][196][207][210][197] 64
50003 [153]:[153]" OPEN          BY STR$AVID (null). (null)OORMAN
50004 SYS22427
51000 POKE53265,PEEK(53265)OR16
51001 IFPEEK(180)=1THEN59000
51005 PRINT:PRINT:PRINT:PRINT"     [196]O [217]OU [215]ANT [201]NSTRUCTIONS ([217]/[206]) "
51999 GETZ$:IFZ$=""THEN51999
52000 POKE23351,4:FORX=1TO20:NEXT
52001 IFZ$="Y"THEN52020
52002 IFPEEK(56)<>56THEN52010
52003 PRINT"[145]                                      "
52004 PRINT"[144][145][145][145][145]LOAD"CHR$(34)"C2C.BT2"CHR$(34)","DV
52005 GOTO52012
52010 PRINT"[145]         [156] [204]OADING [205]ODULES.....       "
52011 PRINT"[144][145][145][145][145]LOAD"CHR$(34)"C2C.BT1"CHR$(34)","DV
52012 PRINT"RUN[145][145][145][145][145][145][145][145]"
52019 FORX=0TO1:POKE631+X,13:NEXT:POKE198,X:END
52020 PRINT"[145]          [204]OADING [201]NSTRUCTIONS       "
52030 SYS57812"C2C.DRD",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
52040 PRINT"[159]";
52050 SYS49152"C2C.DOC",DV,0
52060 RUN1000
59000 POKE180,0:PRINT:PRINT:PRINT:PRINT"        <[208]>LAY [193]GAIN OR <[209]>UIT?"
59010 GETZ$:IFZ$=""THEN59010
59020 IFZ$="P"THENPOKE23351,4:RUN20
59021 GOTO61000
60000 OPEN15,8,15,"S0:SEA TO SEA":CLOSE15:SAVE"SEA TO SEA",8:END
61000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN61020
61010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN61030
61020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
61030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
61040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END